10  CLS
20 DIM A(1600)
30 DIM B(12000)
40  CLS
50 CLEAR,,,64000!: SCREEN 5
60  DEF SEG: BLOAD "A:FLAG.DAT", VARPTR(A(0))
70 PUT (130,50),A
80 LINE (127,50)-(130,130),6,BF
90 CIRCLE (127,130),91,10,0,3,.11
100 LINE (36,130)-(216,130),10
110 PAINT (127,127),10,10
120 VIEW PRINT
130 COLOR 11
140 LOCATE 23,10:PRINT"God Bless America!"
150 VIEW PRINT 1 TO 20
170 S0$="T120 V12 O3" : H0$="T120 V08 O2"
180 S1$="L8 G. E16 L4 C E G >C2 L8 E. D16 L4 C <E F# G2
190 H1$="L8 G. E16 L4 C E B A2 L8 G#. G#16 L4 A A >C <B2
200 S2$="G8 G8 >E4. D8 C4 <B2 L8 A B L4 >C C <G E C4
210 H2$="B >C. <B8 >C D2 <B8 B8 >C C <G E C
220 S3$="L8 G. E16 L4 C E G >C2 L8 E. D16 L4 C <E F# G2
230 H3$="L8 G. E16 L4 C E B A2 L8 G#. G#16 L4 A A >C <B2
240 S4$="G8 G8 >E4. D8 C4 <B2 L8 A B L4 >C C <G E C4
250 H4$="B >C. <B8 >C D2 <B8 B8 >C C <G E C
260 S5$="L8 >E. E16 E4 F4 G4 G2 F. E16 L4 D E F F2 F E. D8 C <B2"
270 H5$="L8 >C. C16 C4 D4 E4 E2 D. C15 L4 <B >C D D2 D C. <B8 >C D2
280 S6$="L8 A B L4>C <E F# G2
290 H6$="L8 C D L4 E <A >C <B2
300 S7$="T110 G >C C L8 C <B A4 A4 A4 T100 >D E F E D C C. L24 D C <B2 P4
310 H7$="T110 L4 >D E E E8 D8 F F E T100 L8 F E D E F C E4 D2 P4
320 S8$="T90 L8 G G >C4. D E F G2 T80 P4 <C D E2 F8 D2 C1
330 H8$="T90 L8 D F E4. D E F >C2 T80 P4 <E F G2 A F2 E1
340 PLAY S0$,H0$
350 PLAY S1$,H1$
360 PLAY S2$,H2$
370 PLAY S3$,H3$
380 PLAY S4$,H4$
390 PLAY S5$,H5$
400 PLAY S6$,H6$
410 PLAY S7$,H7$
420 PLAY S8$,H8$
430 VIEW PRINT 20 TO 25
440 LOCATE 23,4: PRINT" 'Y' To Hear Again, 'N' to Quit."
450 X$=INKEY$
460 IF X$="y" THEN RUN 170 ELSE IF X$="n" THEN GOTO 480 ELSE IF X$="" THEN GOTO 450
470 GOTO 450
480 CLS: LOCATE 23,11: PRINT"Have A Good Day!"
490 VIEW PRINT 1 TO 5
